home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / cli / CheckModem.lha / S / ModemCheck.bat
Encoding:
DOS Batch File  |  1997-07-20  |  905 b   |  29 lines
  1. . $VER: DeviceCheck.bat 1.0 Copyright (c) 1996 by Nils Görs
  2. .key Device/A,UNIT/A,PUBSCREEN
  3. .bra {
  4. .ket }
  5.  
  6. failat 21
  7.  
  8. LAB modemcheck
  9.  
  10. c:checkModem {Device} {Unit}            ; ist die Schnittstelle frei?
  11.  
  12.  if warn
  13.   Set NAME=ModemStatus `c:requestchoice TITLE="Schnittstellenfehler" BODY="Die serielle Schnittstelle ({Device})*Nkonnte   nicht   geöffnet   werden.*NBitte   überprüfen   Sie   ob  eine  andere*NSoftware  die Schnittstelle besetzt hat, ob*NSie    evtl.    einen   falschen   Schnitt-*Nstellentreiber  nutzen oder aber, das Modem*Neinfach nicht eingeschaltet ist." GADGETS="Weiter|Flush|Abbrechen"`
  14.    if $ModemStatus EQ 0 VAL            ; Abbrechen
  15.     Set Name=ModemStatus STRING=10
  16.    endif
  17.  
  18.    if $ModemStatus EQ 1 VAL            ; Weiter
  19.     Set Name=ModemStatus STRING=5
  20.    endif
  21.  
  22.    if $ModemStatus EQ 2 VAL            ; Flush
  23.     avail flush >NIL:
  24.     SKIP modemcheck BACK
  25.    endif
  26.  else
  27.     Set Name=ModemStatus STRING=0
  28.  endif
  29.